home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 2005 June (DVD) / DPPRO0605DVD.iso / Install / program files / Borland / BDS / 3.0 / Demos / Delphi.Net / VCL / Lexer / mwIdToString.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2004-10-22  |  12.0 KB  |  325 lines
  1. {-----------------------------------------------------------------------------
  2. This Software is placed into Publlic Domain and distributed on an "AS IS" basis,
  3. WITHOUT WARRANTY OF ANY KIND, either express or implied.
  4. The Initial Developer is Martin Waldenburg
  5. (Martin.Waldenburg@T-Online.de).
  6. -----------------------------------------------------------------------------}
  7. unit mwIdToString;
  8.  
  9. interface
  10.  
  11. uses mwDelphiLanguageElements;
  12.  
  13. function IdToString(id: integer): string;
  14.  
  15. implementation
  16.  
  17. function IdToString(id: Integer): string;
  18. begin
  19.   Result := 'leUnknown';
  20.   case Id of
  21.     leZero: Result := 'leZero';
  22.     leSpace: Result := 'leSpace';
  23.     leTab: Result := 'leTab';
  24.     leLF: Result := 'leLF';
  25.     leCR: Result := 'leCR';
  26.     leExclam: Result := 'leExclam';
  27.     leDoubleQuote: Result := 'leDoubleQuote';
  28.     leSharp: Result := 'leSharp';
  29.     leDollar: Result := 'leDollar';
  30.     lePercent: Result := 'lePercent';
  31.     leAmpersand: Result := 'leAmpersand';
  32.     leApostrophe: Result := 'leApostrophe';
  33.     leRoundOpen: Result := 'leRoundOpen';
  34.     leRoundClose: Result := 'leRoundClose';
  35.     leAsterisk: Result := 'leAsterisk';
  36.     lePlus: Result := 'lePlus';
  37.     leComma: Result := 'leComma';
  38.     leMinus: Result := 'leMinus';
  39.     lePeriod: Result := 'lePeriod';
  40.     leSlash: Result := 'leSlash';
  41.     leNumber: Result := 'leNumber';
  42.     leColon: Result := 'leColon';
  43.     leSemicolon: Result := 'leSemicolon';
  44.     leLess: Result := 'leLess';
  45.     leEqual: Result := 'leEqual';
  46.     leGreater: Result := 'leGreater';
  47.     leQuestion: Result := 'leQuestion';
  48.     leAtChar: Result := 'leAtChar';
  49.     leSquareOpen: Result := 'leSquareOpen';
  50.     leBackslash: Result := 'leBackslash';
  51.     leSquareClose: Result := 'leSquareClose';
  52.     leAsciiCircum: Result := 'leAsciiCircum';
  53.     leQuoteLeft: Result := 'leQuoteLeft';
  54.     leCurlyOpen: Result := 'leCurlyOpen';
  55.     leBar: Result := 'leBar';
  56.     leCurlyClose: Result := 'leCurlyClose';
  57.     leAsciiTilde: Result := 'leAsciiTilde';
  58.  
  59.     leLineEnd: Result := 'leLineEnd';
  60.     leIdentifier: Result := 'leIdentifier';
  61.     leInternationalIdentifier: Result := 'leInternationalIdentifier';
  62.     leUTF2Identifier: Result := 'leUTF2Identifier';
  63.     leUTF4Identifier: Result := 'leUTF4Identifier';
  64.     leUTF8Identifier: Result := 'leUTF8Identifier';
  65.     leUTF16Identifier: Result := 'leUTF16Identifier';
  66.  
  67.     leAssignment: Result := 'leAssignment';
  68.     leCharConstant: Result := 'leCharConstant';
  69.     leCharHexConstant: Result := 'leCharHexConstant';
  70.     leDotDot: Result := 'leDotDot';
  71.     leDoubleAt: Result := 'leDoubleAt';
  72.     leFloat: Result := 'leFloat';
  73.     leGreaterOrEqual: Result := 'leGreaterOrEqual';
  74.     leHexNumber: Result := 'leHexNumber';
  75.     leLessOrEqual: Result := 'leLessOrEqual';
  76.     leNotEqual: Result := 'leNotEqual';
  77.     leStringConstant: Result := 'leStringConstant';
  78.     leUnterminatedStringConstant: Result := 'leUnterminatedStringConstant';
  79.  
  80.     leAtEnd: Result := 'leAtEnd';
  81.     leUnknown: Result := 'leUnknown';
  82.     leDelphiBase: Result := 'leDelphiBase';
  83.     leAnsiComment: Result := 'leAnsiComment';
  84.     leAnsiDirective: Result := 'leAnsiDirective';
  85.     leAssemblerReference: Result := 'leAssemblerReference';
  86.     leBorlandComment: Result := 'leBorlandComment';
  87.     leBorlandDirective: Result := 'leBorlandDirective';
  88.     leEndOfAnsiComment: Result := 'leEndOfAnsiComment';
  89.     leSkippedCode: Result := 'leSkippedCode';
  90.     leSlashComment: Result := 'leSlashComment';
  91.     leBeginOfAnsiDirective: Result := 'leBeginOfAnsiDirective';
  92.     leBeginOfBorlandDirective: Result := 'leBeginOfBorlandDirective';
  93.  
  94.  {KeyWords}{KeyWords}
  95.     leDelphiKeyWord: Result := 'leDelphiKeyWord';
  96.     leAnd: Result := 'leAnd';
  97.     leArray: Result := 'leArray';
  98.     leAs: Result := 'leAs';
  99.     leAsm: Result := 'leAsm';
  100.     leBegin: Result := 'leBegin';
  101.     leCase: Result := 'leCase';
  102.     leClass: Result := 'leClass';
  103.     leConst: Result := 'leConst';
  104.     leConstructor: Result := 'leConstructor';
  105.     leDestructor: Result := 'leDestructor';
  106.     leDispinterface: Result := 'leDispinterface';
  107.     leDiv: Result := 'leDiv';
  108.     leDo: Result := 'leDo';
  109.     leDownto: Result := 'leDownto';
  110.     leElse: Result := 'leElse';
  111.     leEnd: Result := 'leEnd';
  112.     leExcept: Result := 'leExcept';
  113.     leExports: Result := 'leExports';
  114.     leFile: Result := 'leFile';
  115.     leFinal: Result := 'leFinal';
  116.     leFinalization: Result := 'leFinalization';
  117.     leFinally: Result := 'leFinally';
  118.     leFor: Result := 'leFor';
  119.     leFunction: Result := 'leFunction';
  120.     leGoto: Result := 'leGoto';
  121.     leIf: Result := 'leIf';
  122.     leImplementation: Result := 'leImplementation';
  123.     leIn: Result := 'leIn';
  124.     leInherited: Result := 'leInherited';
  125.     leInitialization: Result := 'leInitialization';
  126.     leInline: Result := 'leInline';
  127.     leInterface: Result := 'leInterface';
  128.     leIs: Result := 'leIs';
  129.     leLabel: Result := 'leLabel';
  130.     leLibrary: Result := 'leLibrary';
  131.     leMod: Result := 'leMod';
  132.     leNil: Result := 'leNil';
  133.     leNot: Result := 'leNot';
  134.     leObject: Result := 'leObject';
  135.     leOf: Result := 'leOf';
  136.     leOperator: Result := 'leOperator';
  137.     leOr: Result := 'leOr';
  138.     lePacked: Result := 'lePacked';
  139.     leProcedure: Result := 'leProcedure';
  140.     leProgram: Result := 'leProgram';
  141.     leProperty: Result := 'leProperty';
  142.     leRaise: Result := 'leRaise';
  143.     leRecord: Result := 'leRecord';
  144.     leRepeat: Result := 'leRepeat';
  145.     leResourcestring: Result := 'leResourcestring';
  146.     leSealed: Result := 'leSealed';
  147.     leSet: Result := 'leSet';
  148.     leShl: Result := 'leShl';
  149.     leShr: Result := 'leShr';
  150.     leString: Result := 'leString';
  151.     leThen: Result := 'leThen';
  152.     leThreadvar: Result := 'leThreadvar';
  153.     leTo: Result := 'leTo';
  154.     leTry: Result := 'leTry';
  155.     leType: Result := 'leType';
  156.     leUnit: Result := 'leUnit';
  157.     leUntil: Result := 'leUntil';
  158.     leUses: Result := 'leUses';
  159.     leVar: Result := 'leVar';
  160.     leWhile: Result := 'leWhile';
  161.     leWith: Result := 'leWith';
  162.     leXor: Result := 'leXor';
  163.  
  164.  {Directives}
  165.     leDelphiDirective: Result := 'leDelphiDirective';
  166.     leAbsolute: Result := 'leAbsolute';
  167.     leAbstract: Result := 'leAbstract';
  168.     leAssembler: Result := 'leAssembler';
  169.     leAt: Result := 'leAt';
  170.     leAutomated: Result := 'leAutomated';
  171.     leCdecl: Result := 'leCdecl';
  172.     leContains: Result := 'leContains';
  173.     leDefault: Result := 'leDefault';
  174.     leDeprecated: Result := 'leDeprecated';
  175.     leDispid: Result := 'leDispid';
  176.     leDynamic: Result := 'leDynamic';
  177.     leExperimental: Result := 'leExperimental';
  178.     leExport: Result := 'leExport';
  179.     leExternal: Result := 'leExternal';
  180.     leFar: Result := 'leFar';
  181.     leForward: Result := 'leForward';
  182.     leHelper: Result := 'leHelper';
  183.     leImplements: Result := 'leImplements';
  184.     leIndex: Result := 'leIndex';
  185.     leLocal: Result := 'leLocal';
  186.     leMessage: Result := 'leMessage';
  187.     leName: Result := 'leName';
  188.     leNear: Result := 'leNear';
  189.     leNodefault: Result := 'leNodefault';
  190.     leOn: Result := 'leOn';
  191.     leOut: Result := 'leOut';
  192.     leOverload: Result := 'leOverload';
  193.     leOverride: Result := 'leOverride';
  194.     lePackage: Result := 'lePackage';
  195.     lePascal: Result := 'lePascal';
  196.     lePlatform: Result := 'lePlatform';
  197.     lePrivate: Result := 'lePrivate';
  198.     leProtected: Result := 'leProtected';
  199.     lePublic: Result := 'lePublic';
  200.     lePublished: Result := 'lePublished';
  201.     leRead: Result := 'leRead';
  202.     leReadonly: Result := 'leReadonly';
  203.     leRegister: Result := 'leRegister';
  204.     leReintroduce: Result := 'leReintroduce';
  205.     leRequires: Result := 'leRequires';
  206.     leResident: Result := 'leResident';
  207.     leSafecall: Result := 'leSafecall';
  208.     leStatic: Result := 'leStatic';
  209.     leStdcall: Result := 'leStdcall';
  210.     leStored: Result := 'leStored';
  211.     leStrict: Result := 'leStrict';
  212.     leVarargs: Result := 'leVarargs';
  213.     leVirtual: Result := 'leVirtual';
  214.     leWrite: Result := 'leWrite';
  215.     leWriteonly: Result := 'leWriteonly';
  216.  
  217.   {Additional}
  218.  
  219.     leA: Result := 'leA';
  220.     leB: Result := 'leB';
  221.     leC: Result := 'leC';
  222.     leD: Result := 'leD';
  223.     leE: Result := 'leE';
  224.     leG: Result := 'leG';
  225.     leH: Result := 'leH';
  226.     leI: Result := 'leI';
  227.     leJ: Result := 'leJ';
  228.     leL: Result := 'leL';
  229.     leM: Result := 'leM';
  230.     leO: Result := 'leO';
  231.     leP: Result := 'leP';
  232.     leQ: Result := 'leQ';
  233.     leR: Result := 'leR';
  234.     leS: Result := 'leS';
  235.     leT: Result := 'leT';
  236.     leU: Result := 'leU';
  237.     leV: Result := 'leV';
  238.     leW: Result := 'leW';
  239.     leX: Result := 'leX';
  240.     leY: Result := 'leY';
  241.     leZ: Result := 'leZ';
  242.     leAndDirective: Result := 'leAndDirective';
  243.     leOff: Result := 'leOff';
  244.     leYD: Result := 'leYD';
  245.     leOnDirective: Result := 'leOnDirective';
  246.     leIfDirective: Result := 'leIfDirective';
  247.     leIfDef: Result := 'leIfDef';
  248.     leOrDirective: Result := 'leOrDirective';
  249.     leGUI: Result := 'leGUI';
  250.     leEndIf: Result := 'leEndIf';
  251.     leIfEnd: Result := 'leIfEnd';
  252.     leElseDirective: Result := 'leElseDirective';
  253.     leDefine: Result := 'leDefine';
  254.     leAlign: Result := 'leAlign';
  255.     leIfNDef: Result := 'leIfNDef';
  256.     leLink: Result := 'leLink';
  257.     leDefined: Result := 'leDefined';
  258.     leUnDef: Result := 'leUnDef';
  259.     leDeclared: Result := 'leDeclared';
  260.     leElseIf: Result := 'leElseIf';
  261.     leImageBase: Result := 'leImageBase';
  262.     leIfOpt: Result := 'leIfOpt';
  263.     leSoName: Result := 'leSoName';
  264.     leInclude: Result := 'leInclude';
  265.     leHints: Result := 'leHints';
  266.     leNoDefine: Result := 'leNoDefine';
  267.     leIOChecks: Result := 'leIOChecks';
  268.     leDebugInfo: Result := 'leDebugInfo';
  269.     leConsole: Result := 'leConsole';
  270.     leBooleval: Result := 'leBooleval';
  271.     leHPPEmit: Result := 'leHPPEmit';
  272.     leRangeChecks: Result := 'leRangeChecks';
  273.     leNoInclude: Result := 'leNoInclude';
  274.     leApptype: Result := 'leApptype';
  275.     leSafeDivide: Result := 'leSafeDivide';
  276.     leResource: Result := 'leResource';
  277.     leWarn: Result := 'leWarn';
  278.     leWarnings: Result := 'leWarnings';
  279.     leTypeInfo: Result := 'leTypeInfo';
  280.     leSoPrefix: Result := 'leSoPrefix';
  281.     leStackFrames: Result := 'leStackFrames';
  282.     leRunOnly: Result := 'leRunOnly';
  283.     leSoSuffix: Result := 'leSoSuffix';
  284.     leReferenceInfo: Result := 'leReferenceInfo';
  285.     leDesignOnly: Result := 'leDesignOnly';
  286.     leExtension: Result := 'leExtension';
  287.     leImportedData: Result := 'leImportedData';
  288.     leDescription: Result := 'leDescription';
  289.     leSoVersion: Result := 'leSoVersion';
  290.     leAssertions: Result := 'leAssertions';
  291.     leImplicitBuild: Result := 'leImplicitBuild';
  292.     leTypedAddress: Result := 'leTypedAddress';
  293.     leLocalSymbols: Result := 'leLocalSymbols';
  294.     leMinEnumSize: Result := 'leMinEnumSize';
  295.     leWeakPackageUnit: Result := 'leWeakPackageUnit';
  296.     leDefinitionInfo: Result := 'leDefinitionInfo';
  297.     leMinStackSize: Result := 'leMinStackSize';
  298.     leObjExportAll: Result := 'leObjExportAll';
  299.     leMaxStackSize: Result := 'leMaxStackSize';
  300.     leLongStrings: Result := 'leLongStrings';
  301.     leDenyPackageUnit: Result := 'leDenyPackageUnit';
  302.     leExternalSym: Result := 'leExternalSym';
  303.     leOpenStrings: Result := 'leOpenStrings';
  304.     leOverFlowChecks: Result := 'leOverFlowChecks';
  305.     leWriteableConst: Result := 'leWriteableConst';
  306.     leOptimization: Result := 'leOptimization';
  307.     leVarStringChecks: Result := 'leVarStringChecks';
  308.     leExtendedSyntax: Result := 'leExtendedSyntax';
  309.     leRealCompatibility: Result := 'leRealCompatibility';
  310.     leResourceReserve: Result := 'leResourceReserve';
  311.     leRegion: Result := 'leRegion';
  312.     leEndRegion: Result := 'leEndRegion';
  313.     leStackChecks: Result := 'leStackChecks';
  314.     leSymbol_Platform: Result := 'leSymbol_Platform';
  315.     leSymbol_Library: Result := 'leSymbol_Library';
  316.     leSymbol_Deprecated: Result := 'leSymbol_Deprecated';
  317.     leUnit_Deprecated: Result := 'leUnit_Deprecated';
  318.     leUnit_Library: Result := 'leUnit_Library';
  319.     leUnit_Platform: Result := 'leUnit_Platform';
  320.   end;
  321. end;
  322.  
  323. end.
  324.  
  325.